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EDTSFTEXT = put string in format buffer 1-se -1984 00:30: VAX=-11 Bliss-32 V4.0-74 Page 1 
. . Ve 8eb-19he 12:39:92 DISKSYMGMASTERSCEDT SaCSFTExT.eLt;1 2% «1} 
3 1 RTITLE “EDTSFTEXT = put string in format buffer’ 
3 ¢ MODULE EDTSFTEXT ( ! Put string in format buffer 
; t jOENT = 'v04-000' ! File: FTEXT.BLI Edit: JBS1003 
core 1 BEGIN 
: $ ! PITILILILILILI LILLIE LILLE iiiiiiiiiiiiiit iti 
$ '® * 
; § 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY ' 
; 10 10 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
: 1 1} : :* ALL RIGHTS RESERVED. * 
3 ‘e ® 
; 18 18 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
: yo 014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 15 015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; i$ Bai8 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 1 01 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; 13 Bate : > TRANSFERRED. * X 
3 it ® 
; $ 0020 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: 38 + ¢ : - CORPORATION. . ‘ 
; 6 0024 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF IjS * * « 
; 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * a 
; 0026 1 !* . cs 
; 0027 1 !« * 
: 28 0028 1 Neeeeeeekereee ened eee eee EERE AERA A AAA A ATA AAA AAA AKA AeA eee ee 
H 9 0029 1! 
3 $0 0080 1 
; 31 0031 1 !++¢ 
3 $ O036 1 ! FACILITY: EDT == The DEC Standard Editor 
; Us 0033 1! 
; 35 sit ! 1 ABSTRACT: 
; $ ooa8 ' Set up the end of buffer string to be put in the format buffer | 
is 0038 1 | | 
3 i 44 : ENVIRONMENT: Runs at any access mode - AST reentrant | 
: 41 0041 ! AUTHOR: Shelly T. Solomon CREATION DATE: October 6, 1981 
: 05 0048 1 i MODIFIED By: | 
3; (44 Bnet 1! 
; «645 5 1 ! 1-001 = Original. STS 06-Oct-1981 
; 646 BOe6 1 ! 1-002 - Improve the appearance of the Listing. JBS 14-Jun-1983 
; (47 0047 1 ! 1-003 - Limit text length to the screen width. JBS 14-Jul-1983 
; «648 0048 1 !-- | 
; 6469 0049 1 
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EDTSFTEXT = put string in format buffer 
Declarations 


¥SBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSFMT_TEXT : NOVALUE; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


-74 
TER: boi’ SRC FTEXT.BLI;1 


EDTSF TEXT TEXT = put string in format buffer 18-se $ep-1984 VAX=- 
Bu 000 EDT “TEXT - put s string n format buffer sera 99: 3%: % DISK 
ZSBTTL “EDTSSFMT_TEXT = put string in format buffer’ 

GLOBAL ROUTINE EDTSSFMT_TEXT ( ! Put stringin the format buffer 


or i Index to correct string 
3 = | 


Page 3 


s-32 V4, ribs 
TER: CEDT.SRCJFTEXT.BLI;1 (3) 


X-11 8 
SKSVMS CED 
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'ee 


FUNCTIONAL DESCRIPTION: | 
! Place the string pointed to by EDT$$A_US_TXT into the format buffer. | 
1 FORMAL PARAMETERS: | 


VIFWN"OOONOUNS ae 


INDEX index to correct string (0=end,1=page) 
IMPLICIT INPUTS: 


EDTSSA_US_TXT 
EDT$$G_TI_WID 


IMPLICIT OUTPUTS: 


RSS & 


rt tott tototats 
SN NNO DO 
NOUS WN—OO@ 


| 

NONE 
06? { ROUTINE VALUE : | 
067 
0680 NONE | 
0681 
pone SIDE EFFECTS: | 
06 
0684 NONE 
0685 
06 e 
0687 
0689 
0690 EXTERNAL ROUTINE 
0691 EDTSSFMT_STR : NOVALUE; ! Put a string in the format buffer 


EXTERNA 
EDTSSA. US_TXT : VECTOR, ' Addresses of counted strings 
EDTS$$G_TI_WID; ' Screen width 


LOCAL | 
LEN, 
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TXT = .EDTSS$A_US_TXT C. INDEX); ! address of string info vector 
LEN = CHSRCHAR-A “(TXT); ! Length of user specified string 
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0688 ; BEGIN 
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70 '¢ 

$e i Don't let the text be wider than the screen. If we don't do this then if the end text 
705 i is wiése than the screen and hardware autowrap is sampled. we will get wrapping and lose 
re a track of the cursor. | 
7 LEN = ot (EDTSS6¢_ TI_WID, .LEN); 
709 EDTSSFM T_STR (.1XT> .CEN); ! dump out the strin ag into the format buffer 
710 END; i of routine EDT iSseM TXT 


IST HES 
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EDTSFTEXT EDTSFTEXT = put string in format buffer 16-Sep-1984 00:30:02 VAX-11 Bliss-32 V4.0-74 P 
Oba EDTSSFMT_TEXT = put string in format buffer 1o=800=1 382 9 339:98 DISKSVMSMASTER: CEDT.SRCJFTEXT.BLI;1 nee 
«TITLE EDTSFTEXT EDTSFIEXT = put string in format buff 
3 er 
IDENT \V04-000\ 
.EXTRN EDTSSFMT_STR, EDTSS$A_US_TXT 
“EXTRN EDT$$G_TY_wW1b 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
0004 -ENTRY EDTSSFMT_TEXT, Save R2 3 
50 04 AC 09 ie HOVL «INDEX, R . if 
52 0000000060040 00 00006 MOVL €DT$$A_US_TXTCROJ, TXT : 
51 82 9A OOODE MOVZBL (TXT)+, L : 07 
50 000000006 00 00 00011 MOVL EDT$$G_TI_WID, RO ; 07 
51 ? D1 00018 CMPL RO, LEN 3 
15 00018 BLEQ 1$ 3 
50 1 00 00010 MOVL LEN, RO 3 
51 50 00 B05 0 1$: MOVL RO, LEN 3 
51 DD 00023 PUSHL LEN : 0709 
52 0D 00025 PUSHL TXT r 
000000006 00 02 FB 00027 CALLS #2, EDTSSFMT_STR : 
04 0002E ET ; 0710 
; Routine Size: 47 bytes, Routine Base: _EDTSCODE + 0000 


0711 #1 
0712 1 !<BLF/PAGE> 
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; Elapsed Time: uo FA 


; 496 
; Lexenes/CPU-Min: 12176 
; pee | Used: 55 pages 
; Compilation ma 


EDTSFTEXT DISFTEXT = put strin graet buffer 1b-se $ep-1984 VAX-11 Bliss-32 V4.0-74 Page 5 
0 EDTSSFAT TEX - put s = ey n format buffer =3007 138% 99: 39: 9 DISKSVMSMASTER:CE LbE SRCSETEXT.BLI:1 . (4). 
: 144 713° 1 END ! of module EDTSFTEXT H 
; 448 Ong 1 wenn | 
146 715 0 ELUDOM : 
é 
| . 
: PSECT SUMMARY : 
; Name Bytes Attributes 3 
; _EDTSCODE 47 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics 3 
; eocceees Syabols oooeeoe- Pages Processing ; 
; File Total Loaded Percent Mapped Time : 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 ; 
; _~$255$DUA28: - SRCIPSECTS.L32;1 2 1 50 7 00:00.1 : 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:F TEXT/OBJ=OBJS:FTEXT MSRC$:FTEXT.BLI/UPDATE=(ENH$:F TEXT) : 
; Size: 47 code + 0 data bytes ; 
; Run Time: 00:09.5 : 
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; COMMAND QUALIFIERS 
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